home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Applications / TCPExample / PNL Libraries / MyInitialization.p < prev    next >
Text File  |  1996-10-23  |  556b  |  37 lines
  1. unit MyInitialization;
  2.  
  3. interface
  4.  
  5.     procedure Initialization;
  6.  
  7. implementation
  8.  
  9.     uses
  10.         Types, Resources, Fonts, Windows, QuickDraw, Menus, TextEdit, Dialogs, Memory;
  11.         
  12. {$IFC not GENERATINGPOWERPC}
  13.     function StackPtr: longint;
  14.     inline
  15.         $2E8F;
  16. {$ENDC}
  17.  
  18.     procedure Initialization;
  19.         var
  20.             i: integer;
  21.     begin
  22.         InitGraf(@qd.thePort);
  23.         InitFonts;
  24.         InitWindows;
  25.         InitMenus;
  26.         TEInit;
  27.         InitDialogs(nil);
  28. {$IFC not GENERATINGPOWERPC}
  29.         SetApplLimit(Ptr(StackPtr - 32768));
  30. {$ENDC}
  31.         MaxApplZone;
  32.         for i := 1 to 3 do begin
  33.             MoreMasters;
  34.         end;
  35.     end;
  36.  
  37. end.